﻿Public Class masaddresstype
    Private massaddresstypeID = Nothing
    Private ADTDESC = Nothing
    Private selectaddresstype = "SELECT `addresstype` as 'รหัสประเภท', `adtdesc` as 'ประเภทที่อยู่' FROM masaddresstype"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property massaddresstypeID_ As Integer
        Get
            Return massaddresstypeID
        End Get
        Set(value As Integer)
            massaddresstypeID = value
        End Set
    End Property

    Property ADTDESC_ As String
        Get
            Return ADTDESC
        End Get
        Set(value As String)
            ADTDESC = value
        End Set
    End Property

    Property selectaddresstype_ As String
        Get
            Return selectaddresstype
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMasaddresstypeData()
        If ADTDESC <> "" Then
            If TypeOf ADTDESC Is String Then
                If connect.GetTable("SELECT adtdesc FROM masaddresstype WHERE adtdesc = '" & ADTDESC & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลประเภทที่อยู่นี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim addresstypeID As Integer

                        addresstypeID = connect.ExecuteScalar("INSERT INTO masaddresstype (adtdesc) VALUES ('" & ADTDESC & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASADDRESSTYPE (ADDRESSTYPE, ADTDESC) VALUES ('" & addresstypeID & "', '" & ADTDESC & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลประเภทของที่อยู่เรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีเลขรหัสประเภทที่อยู่นี้ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMasaddresstypeData()
        If massaddresstypeID > 0 And ADTDESC <> "" Then
            If TypeOf ADTDESC Is String Then
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()
                    connect.ExecuteNonQuery("UPDATE masaddresstype SET adtdesc = '" & ADTDESC & "' WHERE addresstype = '" & massaddresstypeID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASADDRESSTYPE SET ADTDESC = '" & ADTDESC & "' WHERE ADDRESSTYPE = '" & massaddresstypeID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลประเภทของที่อยู่เรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัสประเภทที่อยู่นี้ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try

                connect.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub


End Class
